﻿Public Class test_send_mail
    Private Sub test_send_mail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.smtpsenderemail
        TextBox2.Text = "Alta2Mail - тестовое сообщение"
        TextBox3.Text = "Здравствуйте, это теcтовое сообщение." & vbNewLine & "Отвечать на него не нужно" & vbNewLine & vbNewLine & "alta2mail.codeplex.com"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.TopMost = False
        If start.Send_Mail(TextBox1.Text, TextBox2.Text, TextBox3.Text) = True Then
            MsgBox("Сообщение успешно отправлено")

        Else
            MsgBox("Сообщение НЕ отправлено" & vbNewLine & "Проверьте настройки",, "ОШИБКА")
        End If
        Me.Close()
        general_settings.TopMost = True
    End Sub
End Class